home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / tutor / pumps.arj / PR_ORDER.MAC < prev    next >
Text File  |  1993-11-10  |  5KB  |  96 lines
  1. \END
  2. \X PRINT_ORDER\ON KEY F2
  3. \MOVE 40 TO V\CALLM SUB_HEAD
  4. Thank you for your order!
  5. \MOVE 160 TO Q\MOVE 200 TO R\MOVE 840 TO S\MOVE 540 TO T\MOVE 12 TO U\LINE Q,R,S,T,23,BF\CALLM TUBE_BOX
  6. \MOVE '182019PW' TO FONT_FLNM\CALLM RD_FON
  7. \LOC 170,220\WID 660 DOT\OVER 1,A,44,23
  8.       Press <F2> again to print an order form,
  9.         or order ALL ABOUT PUMPS from: 
  10.         THE ANIMATED SOFTWARE COMPANY
  11.      P.O. BOX 188006, CARLSBAD, CA 92009
  12.  Enclose a check or money order for $34.95 +
  13.  Shipping & Handling.  Currently ALL ABOUT PUMPS
  14.  is avbl. on 1.44 Meg 3.5" disks ONLY.  Shipping
  15.  & Handling is $2.00.  Canada and Mexico, S&H is
  16.  $3.00.  Other foreign orders, S&H is $4.00.
  17.  Next-day air S&H is $15.00.  CA state residents
  18.  add sales tax.  Questions?  Call (800) 551-2726.
  19.           Thank you for your order!
  20. \ON KEY F2 CALL PRINT2
  21. \CALL WAITBOX\CALL WAITRET\CALL WAITOFF
  22. \RETURN
  23. \X PRINT2\ON KEY F2
  24. \MOVE 360 TO Q\MOVE 520 TO R\MOVE 900 TO S\MOVE 680 TO T\MOVE 12 TO U\LINE Q,R,S,T,23,BF\CALLM TUBE_BOX
  25. \LOC 370,540\WID 480 DOT\OVER 1,A,44,23\WAIT NOW 99
  26. (We will try to print to LPT1 first.)
  27. \OPEN LPT1:\IF A=144 OR A=0\JUMP PR2\ENDIF
  28. \LOC 370,540\WID 480 DOT\OVER 1,A,44,23\WAIT NOW 99
  29. \"
  30. LPT1 is not available: Trying LPT2.
  31.      Please wait a few seconds...
  32. \OPEN LPT2:\IF A=144 OR A=0\JUMP PR2\ENDIF
  33. LPT2 is not available: Trying LPT3.
  34.      Please wait a few seconds...
  35. \OPEN LPT3:\IF A=144 OR A=0\JUMP PR2\ENDIF
  36. \LOC 370,540\WID 480 DOT\OVER 1,A,44,23\WAIT NOW 99
  37. \"
  38.    Unable to open printer.
  39.    Please send your order to the 
  40.    address on the screen.
  41. \"
  42. \RETURN
  43. \X PR2
  44. \MOVE 490 TO Q\MOVE 590 TO R\MOVE 620 TO S\MOVE 630 TO T\MOVE 12 TO U\LINE Q,R,S,T,23,BF\CALLM TUBE_BOX
  45. \LOC 500,600\WID 120 DOT\OVER 1,A,44,23
  46. Printing...
  47. \WAIT NOW 333\PRIN ' '\PRIN ' '\PRIN ' '\+
  48. \PRIN '              ***********************************************'\+
  49. \PRIN '              * Order form for ALL ABOUT PUMPS              *'\+
  50. \PRIN '              *   Price just $34.95 + Shipping & Handling   *'\+
  51. \PRIN '              *             by Russell D. Hoffman           *'\+
  52. \PRIN '              *                 Date: ',#TIME&DATE[1,8],'              *'\+
  53. \PRIN '              *                                             *'\+
  54. \PRIN '              * Name:______________________________________ *'\+
  55. \PRIN '              *                                             *'\+
  56. \PRIN '              * (Company:)_________________________________ *'\+
  57. \PRIN '              *                                             *'\+
  58. \PRIN '              * Address:___________________________________ *'\+
  59. \PRIN '              *                                             *'\+
  60. \PRIN '              * City:______________________________________ *'\+
  61. \PRIN '              *                                             *'\+
  62. \PRIN '              * State:_______ Zip:_________________________ *'\+
  63. \PRIN '              *                                             *'\+
  64. \PRIN '              * Media: Currently avbl. on 3.5" disks only!  *'\+
  65. \PRIN '              *                                             *'\+
  66. \PRIN '              * Version that printed this order form: ',VERSION_NUMBER,'  *'\+
  67. \PRIN '              *                                             *'\+
  68. \PRIN '              * Phone:(_______) ___________________________ *'\+
  69. \PRIN '              * (in case we have problems with your order)  *'\+
  70. \PRIN '              *                                             *'\+
  71. \PRIN '              ***********************************************'\+
  72. \PRIN ' '\+
  73. \PRIN '              ALL ABOUT PUMPS requires:                  '\+
  74. \PRIN '                   *  SVGA VESA 1.2 with 1Meg Video.     '\+
  75. \PRIN '                   *  Hard drive with about 10 Meg avbl. '\+
  76. \PRIN '                   *  4 Megabytes EXPANDED MEMORY.       '\+
  77. \PRIN ' '\+
  78. \PRIN '              To receive the full disk set of ALL ABOUT PUMPS'\+
  79. \PRIN '              send this order form with check or money order'\+
  80. \PRIN '              for $34.95 (+Shipping&Handling, see below) to:'\+
  81. \PRIN ' '\+
  82. \PRIN '                     THE ANIMATED SOFTWARE COMPANY'\+
  83. \PRIN '                            P.O. Box 188006'\+
  84. \PRIN '                          Carlsbad, CA 92009'\+
  85. \PRIN ' '\+
  86. \PRIN '                 Shipping and Handling is $2.00.'\+
  87. \PRIN '                 Canada, and Mexico, S&H is $3.00.'\+
  88. \PRIN '                 Other foreign orders, S&H is $4.00.'\+
  89. \PRIN '                 Next Day Air is $15.00. '\+ 
  90. \PRIN '                 California residents, add sales tax.'\+
  91. \PRIN '                 Phone (800) 551-2726 for questions.'\+
  92. \PRIN '                 (M-F 9-5 P.S.T.)'\+
  93. \PRIN ' '\+
  94. \PRIN '                   **** THANK YOU FOR YOUR ORDER! ****'\+
  95. \PRIN [12],\CLOSE LPT1:\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
  96.